/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / runga.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217   A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC  BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 0c 00 01 ff d2 00 00 | f0 16 20 62 00 00 00 34 |........|.. b...4|
|000000c0| 00 02 ff f2 00 00 f2 08 | 20 23 31 2c 20 22 52 55 |........| #1, "RU|
|000000d0| 4e 47 41 2d 4b 55 54 54 | 41 22 2c 28 34 2c 33 38 |NGA-KUTT|A",(4,38|
|000000e0| 29 2d 28 36 35 30 2c 35 | 30 30 29 3a f0 28 20 31 |)-(650,5|00):.( 1|
|000000f0| 30 30 00 00 00 3a 00 03 | ff ca 00 00 f0 64 20 30 |00...:..|.....d 0|
|00000100| 2c 20 5f 63 61 73 65 49 | 6e 73 65 6e 73 69 74 69 |, _caseI|nsensiti|
|00000110| 76 65 20 5f 73 74 72 52 | 65 73 6f 75 72 63 65 20 |ve _strR|esource |
|00000120| 5f 6d 61 63 73 62 75 67 | 4c 61 62 65 6c 73 20 00 |_macsbug|Labels .|
|00000130| 00 0c 00 04 ff c4 00 00 | f0 1f 20 f0 66 00 00 0e |........|.. .f...|
|00000140| 00 05 ff f2 00 00 f0 1b | 20 41 2d 5a 00 00 00 3e |........| A-Z...>|
|00000150| 00 06 ff f0 00 00 f0 31 | 20 22 53 4f 4c 56 45 20 |.......1| "SOLVE |
|00000160| 44 59 2f 44 58 3d 46 28 | 58 2c 59 28 58 29 29 20 |DY/DX=F(|X,Y(X)) |
|00000170| 46 52 4f 4d 20 59 3d 41 | 20 54 4f 20 59 3d 42 20 |FROM Y=A| TO Y=B |
|00000180| 52 55 4e 47 41 2d 4b 55 | 54 54 41 22 00 00 00 14 |RUNGA-KU|TTA"....|
|00000190| 00 07 ff c0 00 02 f0 61 | 20 f2 02 20 44 28 58 2c |.......a| .. D(X,|
|000001a0| 59 29 00 00 00 36 00 08 | ff ea 02 02 5a 3d f4 19 |Y)...6..|....Z=..|
|000001b0| 28 2d 58 2a 58 2f 32 21 | 29 2a 2e 33 39 38 39 34 |(-X*X/2!|)*.39894|
|000001c0| 32 32 3a 54 54 3d 31 21 | 2f 28 31 21 2b 2e 33 33 |22:TT=1!|/(1!+.33|
|000001d0| 32 36 37 2a f4 14 28 58 | 29 29 00 00 00 20 00 09 |267*..(X|))... ..|
|000001e0| ff c8 02 02 f0 13 20 6f | 74 68 65 72 20 66 75 6e |...... o|ther fun|
|000001f0| 63 74 69 6f 6e 73 20 74 | 6f 20 74 72 79 00 00 1c |ctions t|o try...|
|00000200| 00 0a ff de 02 02 f0 5a | 5a 3d 58 2a 59 5e 28 2e |.......Z|Z=X*Y^(.|
|00000210| 33 33 33 33 33 33 33 33 | 23 29 00 00 00 3a 00 0b |33333333|#)...:..|
|00000220| ff e2 02 02 f0 5a 5a 3d | 45 58 50 28 2d 58 2a 58 |.....ZZ=|EXP(-X*X|
|00000230| 2f 32 21 29 2a 2e 33 39 | 38 39 34 32 32 3a 54 54 |/2!)*.39|89422:TT|
|00000240| 3d 31 21 2f 28 31 21 2b | 2e 33 33 32 36 37 2a 41 |=1!/(1!+|.33267*A|
|00000250| 42 53 28 58 29 29 00 00 | 00 4c 00 0c ff c4 02 02 |BS(X))..|.L......|
|00000260| f0 5a 4e 4e 3d 31 21 2d | 5a 2a 28 2e 34 33 36 31 |.ZNN=1!-|Z*(.4361|
|00000270| 38 2a 54 54 2d 2e 31 32 | 30 31 36 2a 54 54 2a 54 |8*TT-.12|016*TT*T|
|00000280| 54 2b 2e 39 33 37 33 2a | 54 54 2a 54 54 2a 54 54 |T+.9373*|TT*TT*TT|
|00000290| 29 3a 49 46 20 58 3c 30 | 20 54 48 45 4e 20 4e 4e |):IF X<0| THEN NN|
|000002a0| 3d 31 2d 4e 4e 00 00 10 | 00 0d ff b2 00 00 f0 1f |=1-NN...|........|
|000002b0| 20 f2 02 20 3d 20 5a 00 | 00 4a 00 0e ff ee 00 00 | .. = Z.|.J......|
|000002c0| f0 09 20 22 4e 4f 20 53 | 54 45 50 53 22 20 3b 4e |.. "NO S|TEPS" ;N|
|000002d0| 3a f0 09 20 22 46 52 4f | 4d 20 41 3d 3f 22 3b 41 |:.. "FRO|M A=?";A|
|000002e0| 3a f0 09 20 22 54 4f 20 | 42 3d 3f 22 3b 42 3a f0 |:.. "TO |B=?";B:.|
|000002f0| 09 20 22 57 48 45 52 45 | 20 59 28 41 29 3d 3f 22 |. "WHERE| Y(A)=?"|
|00000300| 3b 53 00 00 00 1e 00 0f | ff b4 00 00 48 3d 28 42 |;S......|....H=(B|
|00000310| 2d 41 29 2f 4e 3a 47 3d | 48 2f 32 3a 59 3d 53 3a |-A)/N:G=|H/2:Y=S:|
|00000320| 58 3d 41 00 00 12 00 10 | ff e0 00 02 f0 01 20 49 |X=A.....|...... I|
|00000330| 3d 31 20 f6 04 20 4e 00 | 00 42 00 11 ff ec 02 02 |=1 .. N.|.B......|
|00000340| 4b 31 3d f2 02 20 44 28 | 58 2c 59 29 3a 4b 32 3d |K1=.. D(|X,Y):K2=|
|00000350| f2 02 20 44 28 58 2b 47 | 2c 59 2b 47 2a 4b 31 29 |.. D(X+G|,Y+G*K1)|
|00000360| 3a 4b 33 3d f2 02 20 44 | 28 58 2b 48 2c 59 2b 32 |:K3=.. D|(X+H,Y+2|
|00000370| 2a 48 2a 4b 32 2d 48 2a | 4b 31 29 00 00 48 00 12 |*H*K2-H*|K1)..H..|
|00000380| ff bc 00 00 58 3d 58 2b | 48 3a 59 3d 59 2b 48 2f |....X=X+|H:Y=Y+H/|
|00000390| 36 2a 28 4b 31 2b 34 2a | 4b 32 2b 4b 33 29 3a f0 |6*(K1+4*|K2+K3):.|
|000003a0| 07 20 49 3a f0 31 20 22 | 73 6f 6c 75 74 69 6f 6e |. I:.1 "|solution|
|000003b0| 3a 20 77 68 65 72 65 20 | 78 3d 22 3b 58 3b 22 79 |: where |x=";X;"y|
|000003c0| 3d 22 3b 59 00 00 00 1c | 00 13 ff b6 fe 00 f0 37 |=";Y....|.......7|
|000003d0| 20 f2 0b 28 5f 64 6f 77 | 6e 29 3d 30 3a f0 38 3a | ..(_dow|n)=0:.8:|
|000003e0| f0 1f 00 00 00 4c 00 14 | ff e2 00 00 f0 5a 4e 4e |.....L..|.....ZNN|
|000003f0| 3d 31 21 2d 5a 2a 28 2e | 34 33 36 31 38 2a 54 54 |=1!-Z*(.|43618*TT|
|00000400| 2d 2e 31 32 30 31 36 2a | 54 54 2a 54 54 2b 2e 39 |-.12016*|TT*TT+.9|
|00000410| 33 37 33 2a 54 54 2a 54 | 54 2a 54 54 29 3a 49 46 |373*TT*T|T*TT):IF|
|00000420| 20 58 3c 30 20 54 48 45 | 4e 20 4e 4e 3d 31 2d 4e | X<0 THE|N NN=1-N|
|00000430| 4e 00 00 08 00 15 ff b2 | 00 00 00 00 00 08 00 16 |N.......|........|
|00000440| ff f6 00 00 00 00 00 0a | ff ff ff f6 ff 00 f0 12 |........|........|
|00000450| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+